home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 179 / 179.d81 / pair o' dice (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1999-01-01  |  7.3 KB  |  236 lines
  1. 10 poke56,56:clr:dv=peek(186):ifdv<8ordv>29thendv=8:rem floyd r kirk
  2. 12 poke53371,0:poke788,49:tq=ti
  3. 14 poke53281,0:poke53280,0:print"[147]":gosub60000
  4. 20 sys57812"pair font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  5. 22 fori=0to63:poke14*64+i,0:next:fori=0to21step3:poke14*64+i,255:next
  6. 24 vv=53248:poke2040,14:poke2041,14:pokevv+21,0:pokevv,72:pokevv+1,162
  7. 26 pokevv+2,128:pokevv+3,162:pokevv+39,1:pokevv+40,1
  8. 28 pokevv+16,0:pokevv+29,0:pokevv+23,0:pokevv+27,3
  9. 30 dimw(8),s(2),t(2),r(2),u(2),p$(2):n=1
  10. 40 dimf(14):fori=0to9:readf(i):next:f2=1
  11. 50 dimf1(37):fori=0to14:readf1(i):next
  12. 60 dima(12):fori=2to12:reada(i):next
  13. 70 dimf3(83):fori=1to83:readf3(i):next
  14. 78 ifti<tq+120then78
  15. 80 poke53280,15:poke53281,15
  16. 90 poke53272,31:print"[144][147]";tab(10);"[208][193][201][210] [207]' [196][201][195][197] [199][193][205][197][211]":gosub900:p=1
  17. 92 pokevv+21,3
  18. 100 ifn=5then1220
  19. 110 ifn=1orn=3thenp$(1)="[208]layer  ":p$(2)="[195]omputer":goto130
  20. 120 p$(1)="[208]layer 1":p$(2)="[208]layer 2"
  21. 130 print"[147]";:s(1)=0:s(2)=0:t(1)=0:t(2)=0:t=p
  22. 140 ifn>2thenprinttab(16);"[199][210][197][197][196]":r(1)=0:r(2)=0:u(1)=10:u(2)=10:goto160
  23. 150 printtab(17);"[208][201][199]"
  24. 160 printp$(1);tab(19);p$(2):print
  25. 170 print"[199]ame [211]core:        [199]ame [211]core:"
  26. 180 print"[212]urn [211]core:        [212]urn [211]core:"
  27. 190 print"[212]otal:             [212]otal:"
  28. 200 ifn<3then230
  29. 210 print"[198]irst roll:        [198]irst roll:"
  30. 220 print"[212]urns left:        [212]urns left:"
  31. 230 print"[215]ins:";tab(19);"[215]ins:"
  32. 240 rem r=11:c=0:gosub1230
  33. 242 rem forqq=1to6:printtab(3)"                 ":next
  34. 246 r=11:c=0:gosub1230:print
  35. 250 printtab(4)"abc[146]    abc"
  36. 260 printtab(4)"defg[146]   defg"
  37. 270 printtab(4)"hi?k[146]   hi?k"
  38. 280 printtab(4)"lmno[146]   lmno"
  39. 290 r=12:c=25:gosub1230:print"";p$(t);"[144]"
  40. 300 if(n=1orn=3)andt=2then330
  41. 310 r=14:c=25:gosub1230:print"[198]1[144] [197]nd turn":printtab(25)"[198]7[144] [210]oll dice"
  42. 312 printtab(25)"[198]8[144] [205]enu
  43. 320 [137]340
  44. 330 r[178]14:c[178]25:[141]1230:[153]"             ":[153][163]25);"             "
  45. 332 [153][163]25);"             "
  46. 340 r[178]5:c[178]12:[141]1230:[153]"     cmdcmdcmdcmdcmdcmd";[166]6[171]([195]([196](s(1)))));s(1);
  47. 350 [153][163]31);"     cmdcmdcmdcmdcmdcmd";[166]6[171]([195]([196](s(2)))));s(2)
  48. 360 [153][163]13);"    cmdcmdcmdcmdcmd";[166]5[171]([195]([196](t(1)))));t(1);
  49. 370 [153][163]32);"    cmdcmdcmdcmdcmd";[166]5[171]([195]([196](t(2)))));t(2)
  50. 380 [153][163]12);"     cmdcmdcmdcmdcmdcmd";[166]6[171]([195]([196](s(1)[170]t(1)))));s(1)[170]t(1);
  51. 390 [153][163]31);"     cmdcmdcmdcmdcmdcmd";[166]6[171]([195]([196](s(2)[170]t(2)))));s(2)[170]t(2)
  52. 400 [139]n[179]3[167]430
  53. 410 [153][163]12);"  cmdcmdcmd";r(1);[163]31);"  cmdcmdcmd";r(2)
  54. 420 [153][163]12);"  cmdcmdcmd";u(1);[163]31);"  cmdcmdcmd";u(2)
  55. 430 [153][163]5);w(2[172]n[171]1);[163]24);w(2[172]n)
  56. 440 [139]n[179]3[175](s(t)[170]t(t)[177][178]100)[176]n[177]2[175]u(1)[178]0[175]u(2)[178]0[167][141]53370:[137]720
  57. 450 [139]n[178]2[176]n[178]4[176]t[178]1[167]570
  58. 460 [139]n[178]3[167]490
  59. 470 [139]t(t)[179](200[171]s(t))[173]11[167]620
  60. 480 [137]530
  61. 490 [139]t(t)[178]0[167]620
  62. 500 [139]u(1)[178]0[175](s(t)[170]t(t)[177]s(1))[167]530
  63. 510 [139]t(t)[179]a(r(t))[167]620
  64. 520 [139]u(t)[178]1[175](s(t)[170]t(t)[179][178]s(1))[167]620
  65. 530 s(t)[178]s(t)[170]t(t)
  66. 540 t(t)[178]0:t[178]3[171]t
  67. 550 [139]n[177]2[167]u(3[171]t)[178]u(3[171]t)[171]1:r(1)[178]0:r(2)[178]0
  68. 560 [141]52510:[137]290
  69. 570 [151]198,0:[151]53370,0
  70. 580 [161]a$
  71. 590 [139]a$[178]"input"[167]530
  72. 592 [139]a$[178][199](140)[167]90
  73. 600 [139]a$[178]"let"[167]620
  74. 610 [141]870:[137]580
  75. 620 d1[178][181]([187](1)[172]6[170]1):d2[178][181]([187](1)[172]6[170]1)
  76. 622 [141]52040
  77. 630 [151]1590,48[170]d1[170]128:[151]1597,48[170]d2[170]128
  78. 640 [139]t[178]1[167]680
  79. 650 [151]53370,0:ti$[178]"000000"
  80. 660 [139]ti[179]30[167][141]870:[137]660
  81. 670 [151]53371,0
  82. 680 [139]n[177]2[175]r(t)[178]0[167]r(t)[178]d1[170]d2:t(t)[178]r(t):[137]290
  83. 690 t(t)[178]t(t)[170]d1[170]d2:[139]n[179]3[175]d1[178]1[175]d2[178]1[167]s(t)[178]0:[141]1240:[137]540
  84. 700 [139]n[179]3[175](d1[178]1[176]d2[178]1)[176]n[177]2[175](d1[170]d2[178]r(t))[167][141]1270:[137]540
  85. 710 [137]290
  86. 720 [139]n[179]3[167]w(2[172]n[171]2[170]t)[178]w(2[172]n[171]2[170]t)[170]1:r[178]8:[137]770
  87. 730 [139]s(1)[177]s(2)[167]w(2[172]n[171]1)[178]w(2[172]n[171]1)[170]1:t[178]1:[137]760
  88. 740 [139]s(2)[177]s(1)[167]w(2[172]n)[178]w(2[172]n)[170]1:t[178]2:[137]760
  89. 750 t[178]0
  90. 760 r[178]10
  91. 770 c[178]5:[141]1230:[153]w(2[172]n[171]1);[163]24);w(2[172]n)
  92. 780 [139]n[179]3[167][153]:[153]
  93. 790 [153]"";[163]25);"asc1stop lenhange game":[153][163]25);"asc7stop (NULL)ame game"
  94. 792 [153][163]25)"asc8stop (NULL)uit"
  95. 800 p[178]3[171]p:d[178]55000[170]19[172](t[171]1):[151]198,0:[151]53370,0
  96. 810 [161]a$
  97. 820 [139]a$[178]"let"[167]130
  98. 822 [139]a$[178][199](140)[167]1220
  99. 830 [139]a$[178]"input"[167][141]52510:[137]90
  100. 840 [139]t[178]0[167]810
  101. 850 [129]i[178]1[164]83:[151]f3(i)[170]d,f(f2):[130]:f2[178]f2[170]1:[139]f2[178]10[167]f2[178]0
  102. 860 [137]810
  103. 870 [151]53370,0
  104. 880 [129]i[178]0[164]14:[151]f1(i),f(f2):[151]f1(i)[170]7,f(f2):[143]  forqq=1to200:next
  105. 882 [130]:f2[178]f2[170]1:[139]f2[178]10[167]f2[178]0
  106. 890 [142]
  107. 900 [151]vv[170]21,0
  108. 902 [153]"(NULL)right$chr$stop - atn two-player game, with the first"
  109. 910 [153]"to roll a total of 100 or more points"
  110. 920 [153]"the winner. (NULL)oll two dice and add up the";
  111. 930 [153]"numbers, until you decide to stop or a
  112. 940 print"die shows a 1. [193] 1 on one die means you
  113. 950 [153]"lose your count for that turn; a double
  114. 960 print"1 zeroes your total score. [193]nytime you
  115. 970 [153]"show a 1, your turn ends."
  116. 980 [153]"chr$(NULL)valvalstr$stop - atn two-player game lasting ten"
  117. 990 [153]"turns, with the high scorer at the end"
  118. 1000 [153]"being the winner. (NULL)oll two dice and add"
  119. 1010 [153]"up the numbers until (a) you decide to
  120. 1020 print"stop and save what you have rolled that
  121. 1030 [153]"turn, or (b) the dice add up to the
  122. 1040 print"number of your first roll of that turn.
  123. 1050 [153]"right$f (b), you lose what you rolled that
  124. 1060 print"turn and your turn ends."
  125. 1070 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  126. 1080 print"[221]"tab(21)"[221]"tab(29)"[198]1[144] [195]hange"
  127. 1090 print"[221]"tab(21)"[221]"tab(29)"[198]7[144] [196]o it
  128. 1092 [153]"/tantantantantantantantantantantantantantantantantantantantanexp"
  129. 1100 r[178]21:c[178]8:[141]1230:[139]n[179]3[167][153]" (NULL)right$chr$ stop":[137]1120
  130. 1110 [139]n[178]3[176]n[178]4[167][153]"chr$(NULL)valvalstr$stop"
  131. 1120 [139]n[178]1[176]n[178]3[167][153]" (NULL)layer vs lenomputer stop":[137]1150
  132. 1130 [139]n[178]2[176]n[178]4[167][153]"(NULL)layer 1 vs (NULL)layer 2stop":[137]1150
  133. 1140 [153]" (NULL)(NULL)right$(NULL)":[153]"    to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)stop     "
  134. 1150 [151]198,0
  135. 1160 [161]a$:[139]a$[178]""[167]1160
  136. 1170 [139]a$[178]"let"[167]1210
  137. 1180 [139]a$[179][177]"input"[167]1150
  138. 1190 n[178]n[170]1:[139]n[178]6[167]n[178]1
  139. 1200 [137]1100
  140. 1210 [142]
  141. 1220 [151]vv[170]21,0:[153]"load":[151]53281,0:[151]53280,0:[137]40000
  142. 1230 [151]781,r:[151]782,c:[151]783,0:[158]65520:[142]
  143. 1240 r[178]17:c[178]5:[141]1230:[153]"(NULL)h nooooo!":[151]53370,0:ti$[178]"000000"
  144. 1242 [141]51170
  145. 1250 [139]ti[179]120[167][141]870:[137]1250
  146. 1252 [151]1590,63[170]128:[151]1597,63[170]128
  147. 1260 [153][163]5);"on           ":[151]53371,0:[142]
  148. 1270 r[178]17:c[178]3:[141]1230:[153]"peekye-bye, points!":[151]53370,0:ti$[178]"000000"
  149. 1272 [141]52340
  150. 1280 [139]ti[179]80[167][141]870:[137]1280
  151. 1282 [151]1590,63[170]128:[151]1597,63[170]128
  152. 1290 [153][163]3);"on                ":[151]53371,0:[142]
  153. 1300 [131]2,8,7,5,6,4,6,5,7,8
  154. 1310 [131]55780,55781,55820,55860,55821,55782
  155. 1320 [131]55822,55861,55900,55901,55862,55823,55863,55902,55903
  156. 1340 [131]250,123,80,58,44.4,35,42.4,54,74,115,240
  157. 1350 [131]696,656,616,697,576,657,576,536,617,698,496,577,658,537,618,699
  158. 1360 [131]659,416,497,578,538,619,700,417,498,579,660,539,620,418,499,580
  159. 1370 [131]702,419,581,662,622,541,703,663,420,501,542,623,704,664,421,502
  160. 1380 [131]543,624,705,665,422,503,625,706,544,666,423,504,545,626,505,546
  161. 1390 [131]668,506,628,669,588,629,589,508,549,509,590,550,510,591,551,511
  162. 1400 [131]592,552,512
  163. 10000 d[178][194](186):n$[178]"0:pair o' dice":[159]5,d,15,"s"[170]n$:[160]5:[148]n$,d:[128]
  164. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  165. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  166. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  167. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  168. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  169. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  170. 40060 [130]:[142]
  171. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  172. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  173. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  174. 51160 [143] bomb
  175. 51170 s[178]54272:[151]53370,0
  176. 51180 h9[178]32289
  177. 51190 [151]s[170]5,7:[151]s[170]6,160:[151]s[170]24,143
  178. 51200 [151]s[170]1,h9[173]256:[151]s,h9[175]255
  179. 51210 [151]s[170]15,3:[151]s[170]4,19
  180. 51220 [129]t9[178]1[164]10:[130]
  181. 51230 h9[178]h9[171]658:[139]h9[179]4222[167]51250
  182. 51240 [137]51200
  183. 51250 [151]s[170]4,129:v9[178]15
  184. 51260 [129]t9[178]1[164]100:[130]:[151]s[170]24,v9
  185. 51270 v9[178]v9[171]1:[139]v9[167]51260
  186. 51280 [151]s[170]24,0
  187. 51290 [151]53371,0:[142]
  188. 52030 [143] card shuffle
  189. 52040 s[178]54272:[151]53370,0
  190. 52050 [151]s[170]5,14:[151]s[170]6,249
  191. 52060 [151]s[170]24,15:p9[178]5000
  192. 52070 [151]s[170]1,p9[173]256:[151]s,p9[175]255
  193. 52072 [151]1590,49[170]128[170][187](0)[172]6:[151]1597,49[170]128[170][187](0)[172]6
  194. 52080 [151]s[170]4,128
  195. 52090 [129]t9[178]1[164]21:[130]
  196. 52100 [151]s[170]4,127
  197. 52110 p9[178]p9[170]1800:[139]p9[179]20000[167]52070
  198. 52120 [151]53371,0:[142]
  199. 52330 [143] foghorn
  200. 52340 s[178]54272
  201. 52350 [151]s[170]5,41:[151]s[170]6,204
  202. 52360 [151]s[170]24,143
  203. 52370 [151]s[170]1,20:[151]s[170]15,4:[151]s[170]4,19
  204. 52380 [151]s[170]14,117:[151]s[170]18,16
  205. 52390 [129]t9[178]1[164]800:[130]
  206. 52400 [151]s[170]4,18:[151]s[170]24,0:[142]
  207. 52510 s[178]54272:h9[178]24:a9[178]0:[151]53370,0
  208. 52520 [151] s[170]5,20:[151]s[170]6,8:[151]s[170]24,15
  209. 52530 [151] s[170]1,h9:[151]s,0
  210. 52540 [151] s[170]4,17:[129]t9[178]0[164]25:[130]
  211. 52550 [151] s[170]4,16
  212. 52560 a9[178]a9[170]1:[139]a9[177]8[167][142]
  213. 52570 [139]h9[178]24[167]h9[178]15:[137]52530
  214. 52580 [139]h9[178]15[167]h9[178]24:[137]52530
  215. 52590 [151]53371,0:[142]
  216. 53360 [143] didgeree-doo
  217. 53370 s[178]54272:h9[178]2:a9[178]0:[151]53370,0
  218. 53380 [151]s[170]5,8:[151]s[170]6,172:[151]s[170]24,15
  219. 53390 [151]s[170]1,h9:[151]s,0:[151]s[170]15,8
  220. 53400 [151]s[170]4,83:[129]t9[178]1[164]29:[130]
  221. 53410 [151]s[170]4,82
  222. 53420 a9[178]a9[170]1:[139]a9[177]40[167][151]s[170]24,0:[151]53371,0:[142]
  223. 53430 [139][181](a9[173]2)[178]a9[173]2[167]h9[178]h9[171]1:[137]53390
  224. 53440 h9[178]h9[170]2:[137]53390
  225. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  226. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  227. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  228. 60030 z$(0)[178]"(NULL) atn right$ (NULL)   (NULL) '   str$ right$ len val   chr$ atn (NULL) val (NULL)
  229. 60040 z$(2)="by [198]loyd [203]irk
  230. 60050 z$(4)[178]"(c) 1999 by mid$ & asc (NULL)ublishing, right$nc."
  231. 60060 z$(6)[178]"(NULL)his program is not shareware
  232. 60070 z$(7)="or in the public domain."
  233. 60080 z$(9)="1-800-594-3370 or 1-318-221-8718
  234. 60090 [151]214,12:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  235. 60100 [129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  236.